pterosaur_data_classes <-
pterosaur_data %>%
mutate(single_wing_length =
HUMERUS + RADIUS + METACARPAL_4 + WING_PHALANX_1 +
WING_PHALANX_2 + WING_PHALANX_3 + WING_PHALANX_4) %>%
mutate(Size_class = case_when(single_wing_length < 300 ~ "Small",
single_wing_length >= 300 ~ "Large",
WING_PHALANX_1 < 80 ~ "Small",
WING_PHALANX_1 >= 80 ~ "Large",
FEMUR < 20 ~ "Small",
FEMUR >= 20 ~ "Large",
TAIL < 150 ~ "Small",
TAIL >= 200 ~ "Large",
SKULL < 80 ~ "Small",
SKULL >= 100 ~ "Large",
HUMERUS < 25 ~ "Small",
HUMERUS >= 30 ~ "Large",
SKULL < 90 ~ "Small",
SKULL >= 90 ~ "Large",
.default = "Unknown")) %>%
select(Individual_ID, Size_class, single_wing_length, everything())